Faculty/Staff Directory

Degrees

Ph.D. Mathematics, Auburn University
M.S. Mathematics, Auburn University
M.S. Applied Computer Science, Columbus State University
B.A. Mathematics, University of West Florida

More About Me

Image courtesy of Chandler Keith

clear
clc

A = imread('Capture.jpg'); %Read In The Picture
Anew = imread('Dalton State-056_GonzalezThomas.jpg'); %Read In The Template
%Anew = im2uint8(Anew);

[Nr,Nc,Nz] = size(A);
[Nr2,Nc2,Nz2] = size(Anew);
cy = round(Nr2/2);
cx = round(Nc2/2);

scaledA = scaley_keith_chandler_pa06(A,cy,cx);

Anew(1:cy, 1:cx, [1 2 3]) = scaledA;  %Top Left
Anew(1:cy, end:-1:cx+1, [1 2 3]) = scaledA; %Top Right
Anew(end:-1:cy+1, 1:cx, [1 2 3]) = scaledA; %Bottom Left
Anew(end:-1:cy+1, end:-1:cx+1, [1 2 3]) = scaledA;  %Bottom Right

Anew(cy-80:cy+80, cx-75:cx+75, :) = scaley_keith_chandler_pa06(A,161,151);

for i = 0:45:Nc2-45
  if i == 0
    Anew(1:20, i+1:i+44, [1 2 3]) = scaley_keith_chandler_pa06(A,20,44);
    Anew(end-19:end, i+1:i+44, [1 2 3]) = scaley_keith_chandler_pa06(A,20,44);
  else
    Anew(1:20, i:i+45, [1 2 3]) = scaley_keith_chandler_pa06(A,20,46);
    Anew(end-19:end, i:i+45, [1 2 3]) = scaley_keith_chandler_pa06(A,20,46);
  end
end

[Nr3,Nc3,Nz3] = size(Anew);
imwrite(Anew,'tomg.jpg');

function out = scaley_keith_chandler_pa06 (im,rows,cols)

[Nr,Nc,Nz] = size(im);

for i = 1:rows
  for j = 1:cols
    out(i,j,:) = im(round((Nr-1)/rows*(i-1)+1),round((Nc-1)/cols*(j-1)+1),:);
  end
end